0 POKE808,225:POKE53280,14:POKE53281,6:Z$=CHR$(34)
5 PRINT"[147]"CHR$(8)CHR$(142)"[213][178][201][213][201][176][201][213][201] [213][213][178][201] [213][201][213][213][213][201][213][201] [213][213][213]"
6 PRINT"[194][194][194][171][179][194][194][171]  [194][194][194][194] [202][201][194][194][171] [171]  [194][194][194]"
7 PRINT"[203] [203][203][203][173][203][202][203] [203][203] [203] [202][203][202][203][203] [203]  [203][203][203]"
10 PRINT"HUCH, WATTA PLADDERADATSCH! PUPSE STIN-"
11 PRINT"KEN MEGAKNORKE GEIL, HA HA HA! DU BIST'N";
12 PRINT"KLEENER STINKEPUP, DER BEJAHENDERWEISE"
13 PRINT"DEN PIMMEL MOMENTAN IN'NE (PISEPAMPLER,"
14 PRINT"PISEPAMPLER, SAGT MJ IM SUFF) PLOEDE"
15 PRINT"KNORKE PAMPE STECKT, EY. IMMER 'REIN IN"
16 PRINT"DIE PUPSE. DU BIST BESCHEUERT, DU WEICH-";
17 PRINT"TITTIE, DU. WAS NUN?"
18 PRINT"(1) DU STECKST DIR EINEN DILDO IN DEN"
19 PRINT"    FLOPPYSCHACHT"
20 PRINT"(2) DREI SACK ZEMENT"
21 PRINT"(3) ZWEI SACK ZEMENT"
22 GETA$:IFA$=""THEN22
23 IFA$="1"THENPRINT"DU BEJAHST HUNDEHAFT UND BIST TOT.":GOTO1000
24 IFA$="2"THENPRINT"NOE, EIN SACK ZUVIEL!":GOTO1000
25 IFA$="3"THEN100
26 GOTO22
100 PRINT"[147]TJA, SUPER GUT, ABER WAS NUN, HAEH? DU"
101 PRINT"STEHST IM REGEN, UND DER IST SAUER."
102 PRINT"SCHMECKT NICHT GUT. SCHMECKT IRGENDWIE"
103 PRINT"NACH SCHEISSE. SCHEISSE SCHMECKT NICHT"
104 PRINT"GUT. IST DOOF. UND NUN?"
105 PRINT"(1) DU PENNST NACH"
106 PRINT"(2) VERGEWALTIGST DIE HUEBSCHE FRAU VON"
107 PRINT"    GEGENUEBER"
108 PRINT"(3) KOMMST HUNDEHAFT BEIM ARZT"
109 GETA$:IFA$=""THEN109
110 IFA$="1"THEN150
111 IFA$="2"THENPRINT"SIE ZEIGT DICH AN = TOT, DU PIMMEL!":GOTO1000
112 IFA$="3"THENPRINT"OCH NOE, HAT NICHT GEREICHT...":GOTO1000
113 GOTO109
150 PRINT"[147]NACHDEM DU DER REALITAET SANFT ENT-"
151 PRINT"SCHLUMMERT BIST, HOLT SIE DICH AUCH"
152 PRINT"SCHON WIEDER EIN. DAS IST NATUERLICH"
153 PRINT"NICHT SCHOEN. WIE REAGIERST DU?"
154 PRINT"(1) SPIEL BEENDEN"
155 PRINT"(2) UEBERHAUPT NICHT"
156 PRINT"(3) WEISS ICH NICHT"
157 GETA$:IFA$=""THEN157
158 IFA$="1"THEN500
159 IFA$="2"ORA$="3"THENPRINT"OLLER BLOEDMANN...":GOTO1000
160 GOTO157
500 PRINT"NUN IST'S VORBEI. DU BIST SOGAR EINE ART";
501 PRINT"SIEGER, MAN GLAUBT ES KAUM... NUN WIRD"
502 PRINT"EINE ART "Z$"ENTRO"Z$" VERLANGT, ABER MAL GANZ";
503 PRINT"EHRLICH: DIES IST'N "Z$"MADE IM SUFF"Z$"-SPIEL";
504 PRINT"IM WAHRSTEN SINNE DES WORTES. WIR SIND"
505 PRINT"WIRKLICH GERADEZU STOCKBESOFFEN, MJ"
506 PRINT"PENNT SOGAR SCHON NEBEN MIR AUF'M BETT"
507 PRINT"(UND KRIEGT VON ALLEDEM GAR NICHTS MIT),";
508 PRINT"ALSO SCHLUSS FUER HEUTE!"
509 PRINT"(N) FUER NEUANFANG,":PRINT"(R) FUER RESET!"
510 GETA$:IFA$=""THEN510
511 IFA$="N"THEN1004
512 IFA$="R"THENSYS64738
513 GOTO510
1000 FORX=1TO1500:NEXT
1001 PRINT"ACH JA, SUPER EINGEFAEDELT. NU BISSE"
1002 PRINT"MAUSEDOUD, DU OLLE PLOEDFRESSE!"
1003 GETA$:IFA$=""THEN1003
1004 RUN